home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1993…ch: Other People's Memory / ADC Developer CD (1993-03) (''Other People's Memory'')_iso / Dev.CD Mar 93.iso / Development Platforms / Apple II / Essentials / MPW IIGS Interfaces / PIIGSIncludes / HyperXCMD.p < prev    next >
Encoding:
Text File  |  1992-02-26  |  7.1 KB  |  255 lines  |  [TEXT/MPS ]
  1. { *********************************************************
  2.  
  3.   File: HyperXCMD.p
  4.  
  5.   Definition file for HyperCard XCMDs and XFCNs in Pascal
  6.   For use with HyperCard IIGS Version 1.1
  7.  
  8.   Copyright © Apple Computer, Inc. 1990-91
  9.   All Rights Reserved
  10.  
  11. ********************************************************* }
  12.  
  13. UNIT HyperXCMD;
  14.  
  15. INTERFACE
  16.  
  17. USES 
  18.   Types,
  19.   QuickDraw,
  20.   Controls,
  21.   GSOS;
  22.  
  23. CONST 
  24.   _CallBackVector = $E10220;
  25.  
  26.   { XCMDBlock constants for event.what... }
  27.   xOpenEvt          = 1000;     { the first event after you are created }
  28.   xCloseEvt         = 1001;     { your window is being forced close }
  29.   xHidePalettesEvt    = 1004;        { someone called HideHCPalettes }
  30.   xShowPalettesEvt    = 1005;        { someone called ShowHCPalettes }
  31.   xCursorWithin        = 1300;        { cursor is within the window }
  32.  
  33.   { XWindow styles }
  34.   xWindoidStyle        = 0;
  35.   xRectStyle        = 1;
  36.   xShadowStyle        = 2;
  37.   xDialogStyle        = 3;
  38.   
  39. TYPE 
  40.   Str19 = String[19];
  41.   Str31 = String[31];
  42.  
  43.   { XWindoid event record }   
  44.   XWEventInfoPtr = ^XWEventInfo;
  45.   XWEventInfo = RECORD
  46.     eventWindow:     WindowPtr;
  47.     event:              EventRecord;
  48.     eventParams:     ARRAY[1..9] OF LongInt;
  49.     eventResult:     Handle;
  50.   END;
  51.                 
  52.   XCmdPtr = ^XCmdBlock;
  53.   XCmdBlock = RECORD
  54.     paramCount:        INTEGER;
  55.     params:            ARRAY[1..16] OF Handle;
  56.     returnValue:    Handle;
  57.     passFlag:        BOOLEAN;
  58.     userID:            INTEGER;
  59.     returnStat:        INTEGER;    { 0 if normal return, 1 for error }
  60.   END;
  61.  
  62.  
  63. (****  HyperTalk Utilities  ****)
  64. FUNCTION EvalExpr (expr: Str255): Handle;
  65. INLINE $A2,$0002,$22,_CallBackVector;
  66.  
  67. PROCEDURE SendCardMessage (msg: Str255);
  68. INLINE $A2,$0001,$22,_CallBackVector;
  69.  
  70. PROCEDURE SendHCMessage (msg: Str255);
  71. INLINE $A2,$0005,$22,_CallBackVector;
  72.  
  73.  
  74. (****  Memory Utilities  ****)
  75. FUNCTION GetGlobal (globName: Str255): Handle;
  76. INLINE $A2,$0012,$22,_CallBackVector;
  77.  
  78. PROCEDURE SetGlobal (globName: Str255; globValue: Handle);
  79. INLINE $A2,$0013,$22,_CallBackVector;
  80.  
  81. PROCEDURE ZeroBytes (dstPtr: Ptr; longCount: Longint);
  82. INLINE $A2,$0006,$22,_CallBackVector;
  83.  
  84.  
  85. (****  String Utilities  ****)
  86. FUNCTION GSStringEqual (src1: GSString255Hndl; src2: GSString255Hndl): BOOLEAN;
  87. INLINE $A2,$0022,$22,_CallBackVector;
  88.  
  89. PROCEDURE ScanToReturn (VAR scanPtr: Ptr);
  90. INLINE $A2,$001C,$22,_CallBackVector;
  91.  
  92. PROCEDURE ScanToZero (VAR scanPtr: Ptr);
  93. INLINE $A2,$001D,$22,_CallBackVector;
  94.  
  95. FUNCTION StringEqual (str1: Str255; str2: Str255): BOOLEAN;
  96. INLINE $A2,$001A,$22,_CallBackVector;
  97.  
  98. FUNCTION StringLength (strPtr: Ptr): Longint;
  99. INLINE $A2,$0003,$22,_CallBackVector;
  100.  
  101. FUNCTION StringMatch (stringPattern: Str255; target: Ptr): Ptr;
  102. INLINE $A2,$0004,$22,_CallBackVector;
  103.  
  104.  
  105. (****  String Conversions  ****)
  106. FUNCTION BoolToStr (bool: BOOLEAN): Str31;
  107. INLINE $A2,$0010,$22,_CallBackVector;
  108.  
  109. FUNCTION CopyGSString (src: GSString255Hndl): GSString255Hndl;
  110. INLINE $A2,$0020,$22,_CallBackVector;
  111.  
  112. FUNCTION GSConcat (src1: GSString255Hndl; src2: GSString255Hndl): GSString255Hndl;
  113. INLINE $A2,$0021,$22,_CallBackVector;
  114.  
  115. FUNCTION ExtToStr (extendedNumber: Extended): Str31;
  116. INLINE $A2,$0011,$22,_CallBackVector;
  117.  
  118. FUNCTION GSToPString (src: GSString255Hndl): Str255;
  119. INLINE $A2,$001E,$22,_CallBackVector;
  120.  
  121. FUNCTION GSToZero (src: GSString255Hndl): Handle;
  122. INLINE $A2,$0023,$22,_CallBackVector;
  123.  
  124. FUNCTION LongToStr (posNum: Longint): Str31;
  125. INLINE $A2,$000D,$22,_CallBackVector;
  126.  
  127. FUNCTION NumToHex (longNumber: Longint; nDigits: INTEGER): Str19;
  128. INLINE $A2,$000F,$22,_CallBackVector;
  129.  
  130. FUNCTION NumToStr (longNumber: Longint): Str31;
  131. INLINE $A2,$000E,$22,_CallBackVector;
  132.  
  133. FUNCTION PasToZero (str: Str255): Handle;
  134. INLINE $A2,$0007,$22,_CallBackVector;
  135.  
  136. PROCEDURE PointToStr(pt: Point; VAR str: Str255);
  137. INLINE $A2,$002D,$22,_CallBackVector;
  138.  
  139. FUNCTION PToGSString (src: Str255): GSString255Hndl;
  140. INLINE $A2,$001F,$22,_CallBackVector;
  141.  
  142. PROCEDURE RectToStr(rct: Rect; VAR str: Str255);
  143. INLINE $A2,$002E,$22,_CallBackVector;
  144.  
  145. PROCEDURE ReturnToPas (zeroStr: Ptr; VAR pasStr: Str255);
  146. INLINE $A2,$001B,$22,_CallBackVector;
  147.  
  148. FUNCTION StrToBool (str: Str31): BOOLEAN;
  149. INLINE $A2,$000B,$22,_CallBackVector;
  150.  
  151. FUNCTION StrToExt (str: Str31): Extended;
  152. INLINE $A2,$000C,$22,_CallBackVector;
  153.  
  154. FUNCTION StrToLong (str: Str31): Longint;
  155. INLINE $A2,$0009,$22,_CallBackVector;
  156.  
  157. FUNCTION StrToNum (str: Str31): Longint;
  158. INLINE $A2,$000A,$22,_CallBackVector;
  159.  
  160. PROCEDURE StrToPoint(str: Str255; VAR pt: Point);
  161. INLINE $A2,$002F,$22,_CallBackVector;
  162.  
  163. PROCEDURE StrToRect(str: Str255; VAR rct: Rect);
  164. INLINE $A2,$0030,$22,_CallBackVector;
  165.  
  166. FUNCTION ZeroToGS (src: Handle): GSString255Hndl;
  167. INLINE $A2,$0024,$22,_CallBackVector;
  168.  
  169. PROCEDURE ZeroToPas (zeroStr: Ptr; VAR pasStr: Str255);
  170. INLINE $A2,$0008,$22,_CallBackVector;
  171.  
  172.  
  173. (****  Field Utilities  ****)
  174. FUNCTION GetFieldByID (cardFieldFlag: BOOLEAN; fieldID: INTEGER): Handle;
  175. INLINE $A2,$0016,$22,_CallBackVector;
  176.  
  177. FUNCTION GetFieldByName (cardFieldFlag: BOOLEAN; fieldName: Str255): Handle;
  178. INLINE $A2,$0014,$22,_CallBackVector;
  179.  
  180. FUNCTION GetFieldByNum (cardFieldFlag: BOOLEAN; fieldNum: INTEGER): Handle;
  181. INLINE $A2,$0015,$22,_CallBackVector;
  182.  
  183. PROCEDURE SetFieldByID (cardFieldFlag: BOOLEAN; fieldID: INTEGER; fieldVal: Handle);
  184. INLINE $A2,$0019,$22,_CallBackVector;
  185.  
  186. PROCEDURE SetFieldByName (cardFieldFlag: BOOLEAN; fieldNName: Str255; fieldVal: Handle);
  187. INLINE $A2,$0017,$22,_CallBackVector;
  188.  
  189. PROCEDURE SetFieldByNum (cardFieldFlag: BOOLEAN; fieldNum: INTEGER; fieldVal: Handle);
  190. INLINE $A2,$0018,$22,_CallBackVector;
  191.  
  192.  
  193. (****  Graphic Utilities  ****)
  194. PROCEDURE ChangedMaskAndData(whatChanged: INTEGER);
  195. INLINE $A2,$002C,$22,_CallBackVector;
  196.  
  197. PROCEDURE GetMaskAndData(VAR mask: LocInfo; VAR data: LocInfo);
  198. INLINE $A2,$002B,$22,_CallBackVector;
  199.  
  200.  
  201. (****  Miscellaneous Utilities  ****)
  202. PROCEDURE BeginXSound;
  203. INLINE $A2,$0029,$22,_CallBackVector;
  204.  
  205. PROCEDURE EndXSound;
  206. INLINE $A2,$002A,$22,_CallBackVector;
  207.  
  208.  
  209. (****  Resource Names Utilities  ****)
  210. FUNCTION FindNamedResource (resourceType: INTEGER; resourceName: Str255;
  211.                             VAR theFile: INTEGER; VAR resourceID: Longint): BOOLEAN;
  212. INLINE $A2,$0026,$22,_CallBackVector;
  213.  
  214. FUNCTION GetResourceName (resourceType: INTEGER; resourceID: Longint): Str255;
  215. INLINE $A2,$0028,$22,_CallBackVector;
  216.  
  217. FUNCTION LoadNamedResource (resourceType: INTEGER; resourceName: Str255): Handle;
  218. INLINE $A2,$0025,$22,_CallBackVector;
  219.  
  220. PROCEDURE SetResourceName (resourceType: INTEGER; resourceID: Longint; resourceName: Str255);
  221. INLINE $A2,$0027,$22,_CallBackVector;
  222.  
  223.  
  224. (****  Creating and Disposing XWindoids  ****)
  225. FUNCTION NewXWindow(boundsRect: Rect; title: Str31; visible: BOOLEAN;
  226.                     windowStyle: INTEGER): WindowPtr;
  227. INLINE $A2,$0031,$22,_CallBackVector;
  228.  
  229. PROCEDURE CloseXWindow(window: WindowPtr);
  230. INLINE $A2,$0033,$22,_CallBackVector;
  231.  
  232.  
  233. (****  XWindoid Utilities  ****)
  234. FUNCTION GetXWindowValue(window: WindowPtr): LongInt;
  235. INLINE $A2,$0037,$22,_CallBackVector;
  236.  
  237. PROCEDURE HideHCPalettes;
  238. INLINE $A2,$0034,$22,_CallBackVector;
  239.  
  240. PROCEDURE ShowHCPalettes;
  241. INLINE $A2,$0035,$22,_CallBackVector;
  242.  
  243. PROCEDURE SetXWIdleTime(window: WindowPtr; interval: LongInt);
  244. INLINE $A2,$0032,$22,_CallBackVector;
  245.  
  246. PROCEDURE SetXWindowValue(window: WindowPtr; customValue: LongInt);
  247. INLINE $A2,$0036,$22,_CallBackVector;
  248.  
  249. PROCEDURE XWAllowReEntrancy(window: WindowPtr; allowSysEvts: BOOLEAN; allowHCEvts: BOOLEAN);
  250. INLINE $A2,$0038,$22,_CallBackVector;
  251.  
  252.  
  253. IMPLEMENTATION
  254. END.
  255.